Option Explicit
Sub I_Sample008()
    Dim mySht  As Worksheet
    Dim myRng  As Range
    Dim i      As Long
    Dim j      As Long
    Dim myRspn As Long
    Dim myCspn As Long
    myRspn = 10							'wC
    myCspn = 4     						'w
    Set mySht = Worksheets(1)				'N
    With mySht
        .Parent.Windows(1).View = xlNormalView
        With .UsedRange
            Set myRng = .Cells(.Cells.Count)
        End With
        .Cells.PageBreak = xlNone
        For i = myRspn + 1 To myRng.Row Step myRspn
            .Rows(i).PageBreak = xlPageBreakManual
        Next
        For i = myCspn + 1 To myRng.Column Step myCspn
            .Columns(i).PageBreak = xlPageBreakManual
        Next
    End With
    Set myRng = Nothing					'
    Set mySht = Nothing
End Sub
